Top 10k strings from Star Seeker (1985)(Mirrorsoft)(Side A).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
21
3 XMID,YMID,RAD:
3 B$="It"+b$(5
2 mx=n(mon):
2 O$=O$+U$(2
2 K(TW)=K(TW)+TW
2 AndApsAqrAqlAraAriAurBooCncCVnCMaCMiCapCarCasCenCepCetCirColCrBCrvCrtCruCygDelDorDraEquEriForGemGruHerHorHyaHyiIndLacLeoLMiLepLibLupLynLyrMonMusOctOphOriPavPegPerPhePicPscPsAPupPyxRetSgeSgrScoSctSerTauTelTriTrATucUMaUMiVelVirVol
2 ? ";X'Y'Z:
2 ;"this latitude":
2 )+" (GMT)"
1 zmax=(dec2>90
1 z0=lats*al0s+latc*al0c*az0c
1 yh=-al0s/al0c:
1 y0=lsts*p0+lstc*q0:
1 y*lstc<x*lsts
1 x0=lstc*p0-lsts*q0:
1 v$=d$(bd+ON+
1 um"Triangul
1 um Venaticorum
1 um Australis
1 u$=u$+y$(TW
1 u$="This is the"+q$(rank-1
1 u$="This is the brightest star":
1 u$="It"+u$(5
1 tw;"gives views of the night sky from any point on the surface of the Earth, at any time from 1800 to 2200."
1 t$="."+t$(TW
1 slt=z*lats+latc*pq:
1 q1=al0s*az0s:
1 q0=al0c*az0s:
1 q#p#w#s#r#
1 pq=x*lstc+y*lsts:
1 pos;z$''" Is this what you want? (Y/N)":
1 pos;nn;" and ";nx:
1 p1=al0c*latc+al0s*az0c*lats:
1 p0=latc*al0s-lats*al0c*az0c:
1 o$="Year? (1800,2200): ":
1 o$="Time-GMT? (0000-2359):":
1 o$="Size of field? (5-90):":
1 o$="Month? (1,12): ":
1 o$="Longitude? (-180,180) ":
1 o$="Latitude? (-90,90) ":
1 o$="How many? (1-9999)":
1 o$="Day of month? (1-"+
1 o$="Azimuth? (0-360): ":
1 o$="Altitude? (0-90): ":
1 nupd=-ON+TW*(i$="1"):
1 num=num+365
1 num=num*tw*
1 num=days+1
1 num=ALP-15
1 num=(sine*lats+COSE*LSTS*LATC)*
1 nst ;nst;B$(
1 nn=-TW*NT:
1 nis Minoris
1 nam=nam-128
1 mx+"): ":
1 mon=mon+ON:
1 mn=mn+inc:
1 mm=num+eg-wg:
1 lsun=ecc*tw*
1 lst=lst-T4*
1 lst=lst+inc*TF:
1 lst1=lc1*(24
1 line=line+ON
1 l$=l$+d$(N3-TW*(lat>ZE))
1 k(TW)=k(TW)+TW
1 k(TW)=65202
1 k(TW)=65200
1 k(TW),k(ON)-HI*
1 k(ON)=cyz:
1 k(ON)=cyy:
1 k(ON)=cyx:
1 k(ON)=cxz:
1 k(ON)=cxy:
1 k(ON)=cxx:
1 k(ON)=(ON+k(ON))/A1:
1 k$=k$+d$(4
1 inc=i(m-64
1 i Australis
1 hr=hr+dhr:
1 es Venatici
1 e Borealis
1 delt=az0-NT*bd:
1 dec2=dec+fw:
1 dec1=dec-fw:
1 days=days+n(i):
1 days=days+day:
1 day=day+ON:
1 day+" "+m$(
1 cyz=(al0c*lats-latc*al0s*az0c)
1 cyy=(p1*lsts-q1*lstc):
1 cyx=(p1*lstc+q1*lsts):
1 cxz=-latc*az0s
1 cxy=az0s*lats*lsts+az0c*lstc:
1 cxx=-az0c*lsts+az0s*lats*lstc:
1 caz=(z*latc-pq*lats)/
1 b5=TC0+TC1*b4+TC2*b4*b4:
1 b1=yr-1900
1 b$=d$(bd+ON):
1 b$);"in ";b$
1 az0=NT*TW:
1 az0=(i-ON)*NT:
1 al0=NT/TW:
1 ZE,ZE;f$;g$:
1 ZE,ZE;G$;F$:
1 ZE,TW;b$;" ";kn;Z$:
1 ZE,ON;"CURRENT OBSERVING PARAMETERS";
1 ZE+"NEW NUM IS?"
1 Z=-ON+A1*(
1 Z$=" STAR":
1 Y=-ON+A1*(
1 Y1=YM+SIZ*((M=11
1 Y$=" "
1 XMAX=(DEC2
1 X=-ON+A1*(
1 X1=XM+SIZ*((M=56
1 WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW11111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111122222222222222222222222222222222222222222222222222222222222222220000000000000000000000000000000000000
1 WH;F$;G$;G$;F$:
1 WH;"THE SUN IS UP"
1 U$="It"+u$(5
1 U$="109 ":
1 Time-GMT? (0000-2359):T
1 This star is in fact double. Thesystem (which probably includes a third star about a minute of arc away) lies 370 light years distant.nSpica is the 15th brightest starin the sky. It is an eclipsing binary, and is 220 light years from the Sun.
1 This star is a double, and the two components are so close thatgravity has pulled them out of shape. The magnitude varies from3.1 to 4.0.
1 This is a close visual binary.?Altair lies 16 light years away.It is the 11th brightest star.
1 The distance of Betelgeuse is reckoned to be 520 light years.
1 TW,ZE;"Longitude:";
1 TW,TW;"Which day of the month?"'''" e.g. 11"
1 TW,TW;"What size of field would you like? Permitted values lie between 5 and 90 degrees."
1 TW,TW;"The number you chose was"''
1 TW,TW;"That is not a valid time"'" (Too many minutes)":
1 TW,TW;"That does not lie in the"'" proper range"
1 TW,TW;"Now the month; please give me"'" a whole number between 1 and"'" 12."'''" For example, 10 for October."
1 TW,TW;"Give the date on which the"'" observation will be (or was) made."
1 TW,ON;t$;" ":
1 TW,N3;"What is your longitude (in"'" degrees)?"''
1 TW,N3;"What is your latitude (in"'" degrees)?"''
1 Sun routine
1 Sirius, (also known as the "Dog Star"), is the brightest star inthe sky. It is quite close, onlysome 8.7 light years away.
1 Sirius is a double star system; its dim companion was the first White Dwarf star ever discoveredzCanopus is the second brightest star in the sky; only Sirius is brighter. Its distance is not known with any certainty.
1 Side A - Star Seeker
1 STS
1 STP
1 STC
1 STAR
1 Rigel is a blue supergiant, and one of the most luminous of all stars. Its great distance (900 light years) means that it seemsto be only the 6th brightest as seen from earth.
1 Rigel is a visual binary, with a separation of 9 seconds of arc
1 Regulus is the faintest of the 21 first magnitude stars. It is a visual binary, 84 light years away, and its components are 3' of arc apart.
1 Rasalhague
1 Q=-Z*LATS/LATC/
1 Procyon is the 8th brihtest starin the sky. It is a double star,with the companion being a WhiteDwarf.
1 Procyon is one of the closest ofbright stars, with a distance of11 light years from the SunPAchernar is the ninth brightest star and lies at a distance of 118 light years
1 Press any key to continue
1 Please press the appropriate keyS
1 Piscis Austrin
1 ON;"changes, press the ""ENTER"" key";
1 ON;"STARSEEKER";
1 ON;"IMPORTANT";
1 ON,ON;"What is your required azimuth?"'''" North is 0 (or 360) degrees,"''" East is 90,"''
1 ON,ON;"What is your required altitude?"'''" A value of 0 corresponds to"'" the horizon;"''" 90
1 ON,ON;"Please select a field of view"'''" N","To look north"''" S","To look south"
1 ON,N3;"At what time do you wish to make the observation?";''
1 O$="OLDNUM WAS "+
1 NUM=OFFS+NUM:
1 NUM=NUM-80
1 NUM=.06571
1 Miaplacidus
1 MISSED-TRY AGAIN
1 LSUN+LATC*LSTC*
1 LST=LST1+LON/15
1 LST1=-LON/15
1 LM=LM*(LM<60
1 LIN=LINE*(LINE
1 LIN,SM;b$:
1 LD=LD+(LM=60
1 K(TW)>CB-5
1 K(TW)=K(TW)-ON:
1 K(TW)=K(TW)+ON:
1 K(TW)=K(TW)+ON
1 K(TW)=60939
1 K(TW),Z*64
1 JxT8D<Dx 8
1 It is the 16th brightest star inthe sky, and its distance is 520light years.fPollux lies at a distance of 35 light years, and is the nearest Giant. It is the 17th brightest star.KFomalhaut is the 18th brightest star in the sky. It is 23 light years awayXMimosa is the 2nd brightest starin Crux, the 19th in the sky. Itis 490 light years away_Deneb is the 20th brightest starin the sky. It is very luminous,and lies 1600 lightyears away.
1 INK;'" Press ""E"" for an explanation"
1 INK;"How many copies? (1-9)":
1 H}G}H|H|Gx9x:w:w9
1 Hadar is the 10th most brilliantstar in the sky, and the second in Centaurus. It is a hot Blue Supergiant, 490 light years fromthe Sun.
1 H2=(ALP-LON)/15
1 H1=H1-NUM:
1 H1=(ALP-LON)/15
1 GETLS Gets the lambda of the sun
1 DEC=X+Y/60
1 DEC=89.194167
1 DEC2=B+FW:
1 DEC1=B-FW:
1 DAYS=DAYS+ON:
1 Created with Ramsoft MakeTZX0
1 Cor Caroli
1 Cassiopeia
1 Capella is the seventh brighteststar in the sky. It is actually a triple system, dominated by a yellowish Giant. The distance ofCapella is 45 light years.
1 Canis Minor
1 Canis Major
1 Betelgeuse is the 12th brighteststar. It is a Red Supergiant andan irregular variable, with a range 0.1-0.8 in magnitude.
1 Betelgeuse
1 B<(x@<@< x
1 B$=B$+" ("+E$+")"
1 B$="This is a triple star":
1 B$="This is a quadruple star":
1 B$="This is a double star":
1 B$=" STARS PLOTTED":
1 Antares is a visual binary, the main component of which is a RedSupergiant of enormous radius.
1 Alpha Centauri is a triple star system. The two main stars are much like the sun; the third is much fainter. This third star isthe closest star to the Sun, andhas the name "Proxima Centauri"wVega is the 4th brightest star in the sky. It is 26 light yearsaway. It is an optical binary, with a faint companioniArcturus is the fifth brightest star in the sky. It is an OrangeGiant, about 36 light years awayfrom us.
1 Algol was known to the Arabs as "the Demon", and was considered to be unlucky. It is a binary,and as one of the stars eclipsesthe other, Algol's magnitude is seen to drop quite rapidly from 2.15 to 3.3, before rising again
1 Aldebaran is a visual double, the seaparation being 10" of arc
1 Aldebaran (which means "the Eye of the Bull") is a Red Giant, 68light years away. It is the 13thbrightest star.
1 Acrux is the 14th brightest starin the sky.
1 ALP=33.9775
1 A whole class of eclipsing pairsof this kind has been named the "
1 ;g$;" ":
1 ;az0'"Altitude";
1 ;al0'''"Field of view";
1 ;a$'"Time:";
1 ;T$'''"Line of sight:"'"Azimuth:";
1 ;"your chosen field of view."
1 ;"updates"
1 ;"to get the new starmap.":
1 ;"Your choice?: ":
1 ;"You will have to make changes.";
1 ;"V";'"present line of sight)"''" ____________"''"To check on current values";
1 ;"To change:";
1 ;"This star never sets at";
1 ;"This star never rises at";
1 ;"There are no bright stars in";
1 ;"THE GREEK ALPHABET":
1 ;"T"''"Geographical position";
1 ;"Should I verify the numbers"'" that you give me? (Y/N)":
1 ;"S 1 pixel"
1 ;"Press"''"Date of observation";
1 ;"P"''"Line of sight";
1 ;"L 10 pixels";
1 ;"I 4 pixels";
1 ;"FIELD ";p$
1 ;"D"''"Time of observation";
1 ;"Calculating Starmap...":
1 ;"COPY COMPLETED";'J$:
1 ;"(variable)":
1 ;"(";lon;")"'"Latitude:";
1 ;"(";lat;")"'
1 ;" LOADING-PLEASE WAIT "
1 ;" ":
1 ;" ";
1 4 This star is a member of the Hyades cluster6 This star is a member of the Pleiades clusterZCastor is a multiple system madeup of three close binaries (and so six stars altogether).
1 31 Dec 1984O
1 23.30 GMTY
1 -slt*slt):
1 -TW*(lon>ZE))
1 ,pos;m$''" Is that the month you want?";
1 ,ZE;"Your options: L,C,I,U,N,P,M(enu)"'w$:
1 ,ZE;"Your choice?: ":
1 ,ZE;"Press the ""S"" key to stop","the updates after the next plot":
1 ,ZE;"Longitude:";
1 ,ZE;"Latitude:";
1 ,ZE;"Do you want to send this to the printer? (Y/N)":
1 ,ZE;"Are these values OK? (Y/N)":
1 ,TW;"LOOKING":
1 ,ON;"When you have finished making";
1 ,ON;"OVERHEAD";
1 ,ON;"ELEVATION":
1 ,N6*(ON+ZMIN):
1 ,N6*(ON+ZMAX):
1 ,N6*(ON+XMIN):
1 ,N6*(ON+XMAX)
1 ,N3;"VIEW":
1 ,"Code=";nn
1 +NUM)+Y$+B$:
1 +K(TW),(100
1 +(i$="N")+2
1 *days+hr+mn/60
1 *b1+b2-HF)/36525
1 *(xy-ld)):
1 *(dec1<-90
1 *(Q-ON)+L):
1 *(LATS*Z<0
1 *(DEC1<-90
1 )+hr+mn/60
1 )+(dec2<90
1 )+(LINE>21
1 )+(DEC2<90
1 )+"brightest star":
1 )*(LINE-21
1 (xm,ym)=ZE
1 (k(ON)/HI):
1 (k(ON)/HI)
1 (X1-XMID)*(X1-XMID)+(Y1-YMID)*(Y1-YMID)>RAD*RAD
1 (X*X+Y*Y):
1 (HH+hr)+t$:
1 (HF+num-hr*HH):
1 (HF+HI*HI*imin):
1 (AL*(U=NUPD)+4150
1 '''';" For example, South-east is at 135 degrees."
1 '''"You will be asked to enter some"'"numbers (your longitude, etc.)."''"If you like, I will check each"'"entry with you before I accept"'"it permanently."
1 '''" Please select a number between ";
1 ''"The Greek alphabet is given herefor reference:"'
1 ''"Date:";
1 ''" The program holds information on 500 stars in 76 different constellations, including all the most prominent."
1 ''" STARSEEKER is a program that";
1 ''" Please indicate whether you would like:"'''"1 A single update of the view"''"2 Continuous updating"''"3 To choose your own number of";
1 ''" First, the year: anytime"'" between 1800 and 2200."''" e.g. 1950"
1 ''" E 1 day"
1 ''" Your answer should be of the form hhmm,";
1 ''" For example, the longitude"'" of Central London is -0.1"'" degrees."
1 '"U To update this view of the sky"
1 '"To move the cursor, use the keys5, 6, 7 and 8 (the usual cursor"'"keys)"
1 '"The number of pixels jumped by"'"the cursor at each step can be"'"set by pressing the keys:"''
1 '"That is, Large, Intermediate, or"'"Small steps respectively"
1 '"Star rises at:",o$
1 '"Some additional informaion will further be given for some stars."'''" The catalogue name will always indicate the constellation to which the star belongs, and will"
1 '"R.A:",u$'"Dec: ",r$''
1 '"P Sends the plot to the printer"
1 '"N To change any or all of these: date/time/place/field of view/ line of sight"
1 '"Magnitude: ",mag;:
1 '"L Lists all constellations with at least one star plotted and displays those constellations"
1 '"I To obtain information on any of the plotted stars"
1 '"Field of view (for your";
1 '"(4) The magnitude of the star (ameasure of its brightness)."
1 '"(3) The times at which the star rises and sets, or whether it never does either when seen fromyour latitude;"
1 '"(2) The altitude and azimuth, & the equatorial coordinates (R.A.and declination) of the star;"
1 '"(1) One of its catalogue names, and sometimes a ""personal"" name"'"by which it may be more commonlyknown;"
1 '" X","In order to pick","some other view":
1 '" E","To look east",,," W","To look west"''" O","To obtain the",,"overhead view"
1 '" This time must be Greenwich"'" Mean Time";
1 '" For example, the latitude"'" of London is 51.5 degrees."
1 "also contain a second item that identifies it further; this is usually a Greek letter."
1 "You will be given the following information on the star you haveselected:"
1 "VARIABLE? ";Z:
1 "To obtain information on any of"'"the stars plotted, you should"'"place the cursor over that star"'"and press the ""enter"" key."
1 "Star sets at:",o$:
1 "STAR NO:";NUM;:
1 "MULT 0=SINGLE";Z:
1 "MAG? ";Z:
1 "January","February","March","April","May","June","July","August","September","October","November","December"
1 "GPOS? ";Z:
1 "DUE NORTH","NORTH-EAST","DUE EAST","SOUTH-EAST","DUE SOUTH","SOUTH-WEST","DUE WEST","NORTH-WEST","DUE NORTH"
1 "DOESNT EXIST":
1 "CONST ABBR?";Z$
1 "Azimuth :",u$'"Altitude :",r$
1 "+v$+" OF "+b$:
1 " where hh denotes"'" the hour (on a 24 hour clock)"
1 " (GMT) which is not"'" generally the same as local"'" time, (even at Greenwich)."
1 " South is 180,"''" West is 270."
1 " Please select (by letter) one of the following time"'" intervals";''" A 15 minutes";''" B 30 minutes";''" C 60 minutes";''" D 120 minutes"
1 " A brief description of the"'" choices now open to you"'''"C For constellation maps"
1 " for places lying west of"'" the Greenwich meridian."
1 " corresponding to places in"'" the southern hemisphere."''
1 " and mm the number of minutes past the hour."
1 " The answer you give should"'" lie between the limits -90"'" and +90, negative numbers"
1 " The answer you give should lie between -180 and 180 where negative numbers are"
1 lies directly overhead"
1 STARS PLOTTED
1 MGN 1985":
1 Lyrae Variables".
1 Herculis is a triple system. Its magnitude varies between 3 &4. The main star is a Red Super-giant, possibly the largest starknown.
1 2nd 3rd
1 W
1 G